TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/T-TPUG Old Monthly Disks/(c)tm.d64/geography.c

Commodore BASIC | 2007-02-04 | 6KB | 148 lines

100 REM GEOGRAPHY, CC BOOK 2
110 REM FIT TO PET BY ANDY GAMBLE NOV 79
120 I=0
130 CLR:POKE53280,1:POKE53281,1:PRINT"[151]"
140 REM COLUMBIA COLLEGE
150 REM 1619W 10 AVE VANCOUVER BC
160 PRINTCHR$(147)"        GEOGRAPHY"
170 PRINT:PRINT:PRINT"   PLEASE WAIT A MINUTE!"
180 A=345
190 DIMB$(346),U$(346)
200 FORI2=0TO345:U$(I2)="":NEXTI2
210 I=I+1:READB$(I)
220 IFI=345ORB$(I)="*"THEN240
230 GOTO210
240 PRINT: INPUT"DO YOU NEED INSTRUCTIONS (Y/N)";A$:IFA$<>"Y"THEN420
250 PRINTCHR$(147)"THIS IS THE GAME OF GEOGRAPHY[146].":PRINT
260 PRINT"ONE PLAYER NAMES A GEOGRAPHICAL LOCATION. THE OTHER PLAYER MUST NAME ";
270 PRINT"A LOCATION WHOSE FIRST[146] LETTER IS THE SAME AS THE   LAST[146] LETTER ";
280 PRINT"OF THE WORD BEFORE.":PRINT
290 PRINT"FOR EXAMPLE:"
300 PRINT"  DELHI-IRAN-NEBRASKA-ATHENS "
310 PRINT:PRINT"YOU WILL PLAY AGAINST THE COMPUTER.ONLY THE FOLLOWING CATEGORIES ";
320 PRINT"ARE ALLOWED:"
330 PRINT"CONTINENTS   COUNTRIES U.S.STATES
340 [153]"CANADIAN PROVINCES  MAJOR WORLD CITIES"
350 [153]"U.S. STATE CAPITALS  OCEANS & SEAS"
360 [153]:[153]"YOU'LL GET THE MESSAGE ILLEGAL WORDWAIT IF  ";
370 [153]"IT'S NOT IN THE COMPUTER'S ";
380 [153]"MEMORY. IF   YOU CAN'T THINK OF A CORRECT ANSWER, YOU ";
390 [153]"MAY TYPE 'PASS'. IF YOU'VE REALLY      EXHAUSTED ALL THE POSSIBLE ";
400 [153]"ANSWERS,     YOU'VE WON. IF THE COMPUTER CAN THINK OF AN ANSWER, ";
410 [153]"THEN YOU LOSE."
420 U[178]0:C[178]0:[153]:[133]" DO YOU WANT TO GO FIRST (Y/N)";A$
430 [153][199](147)
440 [153]:[139]A$[178]"N"[167]460
450 C[178]1:[137]480
460 R[178][181](([187](0)[172]26)[170]65)
465 R$[178][199](R):[137]620
470 C[178]0
480 [133]"WHAT'S YOUR WORD";A$:[139]C[178]1[167]520
490 [139]A$[178]"PASS"[167]770
500 [139][200](A$,1)[178]R$[167]520
510 [153]:[153]"LETTERS DON'T MATCH":[153]:[137]480
520 [129]E[178]1[164]U
530 [139]A$[179][177]U$(E)[167]550
540 [153]:[153]"ALREADY USED":[153]:[137]480
550 [130]E
560 [129]E[178]1[164]A
570 [139]A$[179][177]B$(E)[167]590
580 [137]610
590 [130]E
600 [153]:[153]"ILLEGAL WORD":[153]:[137]480
610 R$[178][201](A$,1):U[178]U[170]1:U$(U)[178]A$
620 G[178][181]([187]((0)[172]A)[170]1):H[178]A
630 [129]E[178]G[164]H
640 [139][200](B$(E),1)[179][177]R$[167]700
650 [129]I[178]1[164]U
660 [139]B$(E)[178]U$(I)[167]700
670 [130]I
680 [153]"MY WORD IS:       ";B$(E):U[178]U[170]1:U$(U)[178]B$(E)
690 R$[178][201](B$(E),1):[137]470
700 [130]E
710 [139]G[178]1[167]730
720 H[178]G:G[178]1:[137]630
730 [153]:[153]"YOU WIN!"
740 [133]"ANOTHER GAME (Y/N)";A$
750 [139]A$[178]"Y"[167]420
760 [137]1550
770 [143]
780 [129]E[178]1[164]A
790 [139][200](B$(E),1)[179][177]R$[167]840
800 [129]I[178]1[164]U
810 [139]B$(E)[178]U$(I)[167]840
820 [130]I
830 [153]B$(E):[153]:[153]"YOU LOSE":[137]740
840 [130]E:[137]730
850 [131]"NEW YORK","NEW JERSEY","PENNSYLVANIA","CONNECTICUT","ALABAMA"
860 [131]"VERMONT","NEW HAMPSHIRE","MAINE","FLORIDA","MASSACHUSETTS"
870 [131]"GEORGIA","SOUTH CAROLINA","RHODE ISLAND","UTAH","INDIANA"
880 [131]"NORTH CAROLINA","VIRGINIA","SOUTH DAKOTA","OHIO","OREGON"
890 [131]"NEW MEXICO","NORTH DAKOTA","WISCONSIN","MICHIGAN","IDAHO"
900 [131]"CALIFORNIA","MISSISSIPPI","KANSAS","NEBRASKA","IOWA"
910 [131]"WASHINGTON","MONTANA","MINNISOTA","KENTUCKY","TENNESSEE"
920 [131]"LOUISIANA","DELAWARE","MARYLAND","ARKANSAS","COLORADO"
930 [131]"ARIZONA","WEST VIRGINIA","TEXAS","NEVADA","OKLAHOMA"
940 [131]"WYOMING","MISSOURI","ALASKA","HAWAII","ILLINOIS"
950 [131]"ALBERTA","MANITOBA","SASKATCHEWAN","QUEBEC","ONTARIO"
960 [131]"PRINCE EDWARD ISLAND","NEW BRUNSWICK",NEWFOUNDLAND"
970 DATA"AFGHANISTAN","AFRICA","ALBANIA","ALGERIA","ANDORRA"
980 DATA"ANGOLA","ANTARCTICA","ARGENTINA","ASIA","AUSTRALIA"
990 DATA"AUSTRIA","BAHRAIN","BANGLADESH","BARBADOS","BELGIUM"
1000 DATA"BHUTAN","BOLIVIA","BOTSWANA","BRAZIL","BRITISH HONDURAS"
1010 DATABULGARIA","BURMA","BURUNDI","CAMBODIA","CAMEROON"
1020 [131]"CANADA","CENTRAL AFRICAN REPUBLIC","CEYLON","CHAD","CHILE"
1030 [131]"CHINA","COLUMBIA","CONGO","COSTA RICA","CUBA"
1040 [131]"CYPRUS","CZECHOSLOVAKIA","DAHOMEY","DENMARK","DOMINICAN REPUBLIC"
1050 [131]"ECUADOR","EGYPT","EL SALVADOR","ENGLAND","ETHIOPIA"
1060 [131]"EQUATORIAL GUINEA","EUROPE","FIJI","FINLAND","FRANCE"
1070 [131]"GABON","GAMBIA","EAST GERMANY","WEST GERMANY","GERMANY"
1080 [131]"GHANA","GREAT BRITAIN","GREECE","GUATEMALA","GUINEA"
1090 [131]"GUYANA","HAITI","HOLLAND","HONDURAS","HUNGARY"
1100 [131]"ICELAND","INDIA","INDONESIA","IVORY COAST","IRAN"
1110 [131]"IRAQ","IRELAND","ISRAEL","ITALY","JAMAICA"
1120 [131]"JAPAN","JORDAN","KENYA","SOUTH KOREA","NORTH KOREA"
1130 [131]"KUWAIT","LAOS","LEBANON","LESOTHO","LIBERIA"
1140 [131]"LIBYA","LIECHTENSTEIN","LUXEMBOURG","MALAWI","MALAYA"
1150 [131]"MALAGASY REPUBLIC","MALAYSIA","MALDIVES","MALI","MALTA"
1160 [131]"MAURITANIA","MAURITIUS","MEXICO","MONGOLIA","MOZAMBIQUE"
1170 [131]"NEPAL","NETHERLANDS","NEW ZEALAND","NICARAGUA","NIGER"
1180 [131]"NIGERIA","NORWAY","OMAN","PAKISTAN","PANAMA"
1190 [131]"PARAGUAY","PERU","PHILIPPINES","POLAND","PORTUGAL"
1200 [131]"QATAR","RHODESIA","RUMANIA","RWANDA","SAUDI ARABIA"
1210 [131]"SCOTLAND","SENEGAL","SIERRA LEONE","SINGAPORE","SOMALIA"
1220 [131]"SOUTH AFRICA","SOUTH AMERICA","NORTH AMERICA","SPAIN","SUDAN"
1230 [131]"SURINAM","SWAZILAND","SWEDEN","SWITZERLAND","SYRIA"
1240 [131]"TANZANIA","THAILAND","TOGO","TRINIDAD","TUNISIA"
1250 [131]"USSR","WALES","ZAIRE","YEMEN","ZAMBIA"
1260 [131]"UPPER VOLTA","URUGUAY","VATICAN CITY","VENEZUELA","UNITED KINGDOM"
1270 [131]"NORTH VIETNAM","SOUTH VIETNAM","RUSSIA","UNITED STATES","YUGOSLAVIA"
1280 [131]"TOKYO","LONDON","SHANGHAI","OSAKA","MOSCOW"
1290 [131]"BUENOS AIRES","PARIS","MEXICO CITY","CHICAGO","LOS ANGELES"
1300 [131]"CALCUTTA","PEKING","SAO PAULO","BOMBAY","DJAKARTA"
1310 [131]"SEOUL","RIO DE JANEIRO","CAIRO","PHILADELPHIA","DETROIT"
1320 [131]"HONG KONG","BERLIN","LENINGRAD","MANILA","NEW DELHI"
1330 [131]"BOSTON","KARACHI","MADRID","SAN FRANSISCO","WASHINGTON DC"
1340 [131]"SYDNEY","ROME","MILAN","SANTIAGO","MONTREAL"
1350 [131]"LIMA","BARCELONA","MELBOURNE","PITTSBURG","MANCHESTER"
1360 [131]"ST LOUIS","TORONTO","HAMBURG","BUDAPEST","CLEVELAND"
1370 [131]"BANGKOK","JOHANNESBURG","ATHENS","SINGAPORE","ISTANBUL"
1380 [131]"VIENNA","BRUSSELS","AMSTERDAM","GLASGOW","HAVANA"
1390 [131]"LISBON","WARSAW","COPENHAGEN","STOCKHOLM","PRAGUE"
1400 [131]"MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO"
1410 [131]"DENVER","HARTFORD","DOVER","TALLAHASSEE","ATLANTA"
1420 [131]"HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS","DES MOINES"
1430 [131]"TOPEKA","FRANKFURT","BATON ROUGE","AUGUSTA","ANNAPOLIS"
1440 [131]"LANSING","ST PAUL","JACKSON","JEFFERSON CITY","HELENA"
1450 [131]"LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE"
1460 [131]"ALBANY","RALEIGH","BISMARCK","COLUMBUS","OKLAHOMA CITY"
1470 [131]"SALEM","HARRISBURG","PROVIDENCE","COLUMBIA","PIERRE"
1480 [131]"NASHVILLE","AUSTIN","SALT LAKE CITY","MONTPELIER","RICHMOND"
1490 [131]"OLYMPIA","CHARLESTON","MADISON","CHEYENNE","PACIFIC OCEAN"
1500 [131]"ATLANTIC OCEAN","INDIAN OCEAN","ARCTIC OCEAN","RED SEA","BLACK SEA"
1510 [131]"MEDITERRANEAN SEA","BERING SEA","NORTH SEA","BALTIC SEA","YELLOW SEA"
1520 [131]"CARIBBEAN SEA","GULF OF MEXICO","EAST CHINA SEA","HUDSON BAY"
1530 [131]"SEA OF JAPAN","SOUTH CHINA SEA","VANCOUVER","VICTORIA"
1540 [131]"YALTA","YANGTZE RIVER","YOKOHAMA","YUKON"
1550 [131]"*":[128]